home *** CD-ROM | disk | FTP | other *** search
/ The SelectWare System Volume 5 #4 / The SelectWare System Volume 5 #4.iso / hsc10000 / dmthree.inf < prev    next >
Text File  |  1993-10-29  |  5KB  |  196 lines
  1. Do SetupINSTALIT
  2.  
  3. Procedure SetupINSTALIT
  4.   SetTopLineTo INSTALLING DIGITAL MORPH DEMO (Press Esc to exit)
  5.   
  6.   SetBackdrop Off
  7.  
  8.   ;; 
  9.   ;; The following variables cover all replaceble parameters
  10.   ;;
  11.   ;; destination directory
  12.   [CommandLine0] := c:\dmshow
  13.   ;; command line for first icon
  14.   [CommandLine1] := [CommandLine0]\HSCRT.EXE  
  15.   ;; file for first icon to run (Specify full path!)
  16.   [CommandLine2] := c:\dmshow\dmshow33.IW 
  17.   ;; first icon text
  18.   [CommandLine3] := "Digital Morph 486/33 Demo" 
  19.   ;; file for first second icon to run 
  20.   ;; (Specify full path or leave blank for one icon demos)
  21.   [CommandLine7] := c:\dmshow\dmshow50.IW 
  22.   ;; second icon text
  23.   ;; (Specify name or leave blank for one icon demos)
  24.   [CommandLine8] := "Digital Morph 486/50 Demo" 
  25.   ;; file for third icon to run
  26.   [CommandLine9] := c:\dmshow\nosond33.IW 
  27.   ;; third icon text
  28.   ;; (Specify name or leave blank for one icon demos)  
  29.   [CommandLine10] := "Digital Morph Demo No Sound" 
  30.   ;; windows group name
  31.   [CommandLine4] := morph.GRP 
  32.   ;; windows group title
  33.   [CommandLine5] := "DIGITAL MORPH DEMOS" 
  34.   ;; disk space required in Megabytes
  35.   [CommandLine6] := 11 
  36.   ;; BreakKey specified in the Win.ini file
  37.   [CommandLine9] := Esc
  38.  
  39.   If CGA
  40.    [Number1] := 320 - 130 + 40
  41.    [Number2] := 6
  42.    [Number3] := 320 + 130 + 40
  43.    [Number4] := 27
  44.    [Number5] := 320 - 130 + 50
  45.    [Number6] := 13
  46.    [String1] := HSCBAK.BMP
  47.   EndIf
  48.  
  49.   If EGA
  50.    [Number1] := 320 - 130 + 40
  51.    [Number2] := 11
  52.    [Number3] := 320 + 130 + 40
  53.    [Number4] := 47
  54.    [Number5] := 320 - 130 + 50
  55.    [Number6] := 23
  56.    [String1] := HSCBAK.BMP
  57.   EndIf
  58.  
  59.   If HGC
  60.    [Number1] := 360 - 130 + 40
  61.    [Number2] := 11
  62.    [Number3] := 360 + 130 + 40
  63.    [Number4] := 47
  64.    [Number5] := 320 - 130 + 90
  65.    [Number6] := 23
  66.    [String1] := HSCBAK.BMP
  67.   EndIf
  68.  
  69.   If VGA
  70.    [Number1] := 320 - 130 + 40
  71.    [Number2] := 15
  72.    [Number3] := 320 + 130 + 40
  73.    [Number4] := 65
  74.    [Number5] := 320 - 130 + 50
  75.    [Number6] := 32
  76.    [String1] := HSCBAK.BMP
  77.   EndIf
  78.  
  79.   ;; While it is not documented anywhere else it is true that FreeSpaceOnDrive
  80.   ;; considers only the first character of its first parameter (in this case
  81.   ;; the drive letter of the temporary directory).
  82.   If FreeSpaceOnDrive ShadowDirectory < 300000
  83.    popup There is insufficient space on the TEMP drive for installation.
  84.    SoLong
  85.   EndIf
  86.  
  87.   QueFileGroup 1 to ShadowDirectory
  88.   GetQuedFiles
  89.   LoadBitMap 1 ShadowDirectory\[String1] @xy(0,0) 
  90.   ShowBitMap 1 ShadowDirectory\[String1] @xy(0,0)
  91.   ShowWindow Maximized
  92. EndProcedure
  93.  
  94. Dialog PressAKey UseHeader "DIGITAL MORPH DEMO" 
  95.    This installation routine will copy the necessary files to your hard 
  96.    disk. 
  97.    
  98.    No changes will be made to your Autoexec.bat or Config.sys files. 
  99.    
  100.    A new Windows Program Group and icon will be added.
  101.  
  102. EndDialog
  103.  
  104.  
  105. GetMenuChoice UseHeader "Make a Selection Please" ConfirmIfNone @xy(center,center)
  106.   Install Demo
  107.     ; Requires approximately [CommandLine6] Megabytes of Hard Disk Space.
  108.   Exit 
  109.     ; Quit the installation process.
  110. EndGetMenuChoice
  111.  
  112. InCase Choice is
  113.   =1:  Do Install1
  114.   =2:  Do Install2
  115. EndInCase
  116.  
  117. Procedure Install1
  118.   
  119.   CreateDirectoryIfNecessary [CommandLine0]
  120.   QueFileGroup 2 to [CommandLine0]
  121.   GetQuedFiles ShowJustOne
  122.  
  123.  ;;SALUTATION
  124.  
  125.   BuildProgramGroup "DIGITAL MORPH DEMO" MORPH.GRP {Replace}
  126.     c:\dmshow\hscrt.exe c:\dmshow\dmshow33.iw "Digital Morph 486/33 Demo"
  127.     c:\dmshow\hscrt.exe c:\dmshow\dmshow50.iw "Digital Morph 486/50 Demo"
  128.     c:\dmshow\hscrt.exe c:\dmshow\nosond33.iw "Digital Morph Demo No Sound"
  129.  
  130.   EndBuildProgramGroup
  131.  
  132.  
  133.   CopyFiles from [CommandLine0] to [WindowsDirectory]\system Quietly
  134.     mciaap.drv
  135.     aaplay.dll
  136.     aavga.dll
  137.   EndCopyFiles  
  138.  
  139.   SetModifyModeTo Modify
  140.  
  141.   ModifyTextFile [WindowsDirectory]\win.ini Quietly NoBackup
  142.    InSection [MCI extensions]
  143.     AddOrChangeLineWith (flc,=,) as "flc=animation1" at end
  144.     AddOrChangeLineWith (fli,=,) as "fli=animation1" at end
  145.   EndModifyTextFile  
  146.  
  147.   ModifyTextFile [WindowsDirectory]\system.ini Quietly NoBackup
  148.    InSection [MCI]
  149.     AddOrChangeLineWith (Animation1,=,) as "Animation1=mciaap.drv" at end
  150.   EndModifyTextFile  
  151.  
  152.   ModifyTextFile [WindowsDirectory]\win.ini Quietly NoBackup
  153.     AddOrChangeLineWith ([IconAuthor],,) as "[IconAuthor]" at end
  154.   EndModifyTextFile
  155.  
  156.   ModifyTextFile [WindowsDirectory]\win.ini Quietly NoBackup
  157.    InSection [IconAuthor]
  158.     AddOrChangeLineWith (BreakKey,=,) as "BreakKey=[CommandLine9]" at end
  159.   EndModifyTextFile  
  160.  
  161. EndProcedure
  162.  
  163.  
  164. Dialog PressAKey UseHeader "INSTALLATION COMPLETE"
  165.      
  166.     Thank You.
  167.     
  168. EndDialog   
  169.  
  170. Dialog PressAKey UseHeader "TECHNICAL ASSISTANCE"  
  171.      
  172.      We hope we have anticipated all your needs.  
  173.      We will be glad to assist you with any challenges.
  174.      
  175.                            HSC Software.
  176.     The technical support staff is available to help you 9AM to 5PM PST.
  177.     (310) 392-8441           FAX (310) 392-6015 
  178.  
  179. EndDialog
  180.  
  181.  
  182. Procedure Install2
  183.    DeleteFiles from ShadowDirectory
  184.    HS*.BMP
  185.   EndDeleteFiles
  186.   SoLong Quietly
  187. EndProcedure
  188.  
  189.  
  190. DeleteFiles from ShadowDirectory
  191.    HS*.BMP
  192. EndDeleteFiles
  193. SoLong Quietly
  194.  
  195. EndScript
  196.